home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / yat_dm < prev    next >
Internet Message Format  |  1995-03-31  |  16KB
  1. From: Detlef Mueller <detlef@mwhh.hanse.de>
  2. Subject:  v03i023:  yat_dm - Yet Another Tetris version 1.4, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 3178329258 (verify with brik -cv)
  8. Submitted-by: Detlef Mueller <detlef@mwhh.hanse.de>
  9. Posting-number: Volume 3, Issue 23
  10. Archive-name: yat_dm/part01
  11.  
  12. BEGIN_DOC tetris.doc
  13. Hi everybody.
  14.  
  15. Here's an update of TETRIS to version 1.4 (last one I hope :*)
  16.  
  17. Features:
  18.     - Initial/pause screen
  19.     - hight speed
  20.     - stone preview (suppressable)
  21.     - increasing levels (manual incrementation possible)
  22.     - increasing speed
  23.     - original score algorithm/sound
  24.     - quick down/left/right/exit
  25.     - sound toggle
  26.  
  27. Changes vs. version 1.3 :
  28.     - 'forget to clear first row on fullline remove, fixed
  29.     - add +/- ket to toggle sound
  30.     - bytes/chksum: 2891/#7536
  31.  
  32. Installation:
  33.     To install the game, a) download the ASC version, execute ASC\->, b)
  34.     download the uudecoded version and recall it into the stack.
  35.     Enter the port number (0,1,2) where you want to store it and press
  36.     STO. Switch the HP48 off, then on again. TETRIS will now be installed
  37.     as a library named TETRIS (id no. 769, who wants to play with the
  38.     CASINO48 card ? :-)
  39.  
  40. Deinstallation:
  41.     To get rid of the game execute the following commands (if TETRIS
  42.     is stored in port 1 or 2, make sure the port is set to R/W):
  43.         HOME        @ switch to the home directory
  44.         769 DETACH        @ release library
  45.         :&:769 PURGE    @ search and purge it
  46.  
  47. Run/keys:
  48.     To play it, enter the LIBRARY TETRIS menu and press the softkey
  49.     named TETRIS or just type TETRIS[ENTER] at the command line.
  50.     The game starts immediately, coming up with the following screen:
  51.  
  52.     +-------------------------------------------+
  53.     |SCORE         |   ##        |    TETRIS    |
  54.     | 0            |   ##        |              |
  55.     |LEVEL         |             |    ******    |
  56.     | 0            |             |    *    *    |
  57.     |LINES         |             |    ******    |
  58.     | 0     ##     |             |              |
  59.     |       ##     |             |              |
  60.     ||PAUSE|| PVT ||_____________||+LEVL|| QUIT||
  61.     +-------------------------------------------+
  62.  
  63.     Symbol    Means
  64.  
  65.     ******    is a little help screen for the motion control keys.
  66.     *    *    Here they are:
  67.     ******        - Left arrow  : Move stone one step left
  68.             - Right arrow : Move stone one step right
  69.             - Up arrow    : Rotate stone
  70.             - Down arrow  : Drop stone
  71.             - VAR key     : 'Quick' move stone left
  72.             - NXT key     : 'Quick' move stone rigth
  73.  
  74.     |xxxxx|    are softkey menu labels :
  75.             - |PAUSE|     : Stop TETRIS until a key is pressed
  76.             - | PVT |     : Toggle stone preview on/off
  77.             - |+LEVL|     : Increment level
  78.             - | QUIT|     : Force 'GAME OVER'
  79.  
  80.     ##    is a stone.
  81.     ##
  82.  
  83.     The +/- key toggles the sound on/off.
  84.     The ON key can be used to leave TETRIS immediately (boss key :-)
  85.  
  86. Algorithms:
  87.     Score:
  88.     Every dropped stone increments the score value in the following
  89.     manner (C syntax):
  90.         score += lev * (pv ? 2 : 3) + 5 + DY - ft ;
  91.  
  92.         lev - actual level value
  93.         pv  - preview on/off flag
  94.         DY  - height of the TETRIS game area (I left this to 23, normally
  95.           15 is the correct value)
  96.         ft  - falltime of the stone (max. 15)
  97.  
  98.     Level:
  99.     The level is incremented in the following manner (C syntax):
  100.         if ( fullines % 5 > level )
  101.         ++level ;
  102.  
  103.     In the original TETRIS version the level value is incremented every
  104.     ten full lines. Because of the limited height of the HP48 version,
  105.     I set this value to five.
  106.  
  107.     Speed:
  108.     At level 0, the time until a stone reaches the bottom line is about
  109.     10 seconds. When the level is incremented, this time is decremented
  110.     by a value, so that a stone needs only 1 second at level 10 to fall
  111.     down. The highest speed is reached at level 11 (very difficult
  112.     to play .. :)
  113.  
  114.     Sound generation:
  115.     Sound is generated at the following points:
  116.         - a full line is removed
  117.         - newscore % 1000 > oldscore % 1000 (C syntax again)
  118.         - game over
  119.  
  120.     I got this formulas and the sounds from the MesS-DOS TETRIS v1.0.
  121.  
  122. Hints:
  123.     To get more points:
  124.     While the 1st stone falls:
  125.         - suppress stone preview (press PVT once)
  126.         - use +LEVL (I start at level 7)
  127.     Drop a stone as soon as possible.
  128.  
  129. Things to notice:
  130.     - If you get a 'TETRIS Failed' from the game, please mail me
  131.       a description of the circumstances and the contents of the stack.
  132.       TERIS traps any error, prints an error message and DOESN'T clean
  133.       up the stack. Use the interactive stack to view the stack, then
  134.       execute CLEAR !
  135.     - TETRIS doesn't destroy your PICT.
  136.     - I will maintain this program, so feel free to mail me ideas for
  137.       improvement or notes of appreciation ;-) .
  138.  
  139. Credits:
  140.     1) Lennart Boerjeson - TETRIS posted in Aug 90
  141.     2) Raymond Hellstern - beta tester
  142.     3) Yvonne - alpha tester
  143.     4) W. C. Wickes - \->ASC
  144.     5) Chris Spell - inserted the UUENCODE form of TETRIS (thanks :-)
  145.     6) HP Corvallis - RPL tools/HP48
  146.  
  147. Happy playing,
  148.     Detlef.
  149.  
  150. P.S.    I don't take the blame for worn calculator keys :-).
  151.     Any questions ? Feel free to mail me ...
  152.  
  153.  
  154. END_DOC
  155.  
  156. BEGIN_ASC tetris.asc
  157. %%HP: ;
  158. "04B201961011455445259435A313E243C29A44D4729313111030951000000BF5
  159. 1050000D9D201192010300F6C12B21308103000D9D20E1A8113593CA031FC2E4
  160. E5E40D9D2029E2010310029E2010320029E20103300B21308BE40D9D20743E4C
  161. A0316EC4078D40C2A20F100045544525943502641696C65646B5421B6421C209
  162. 3B2130743E4CA031B2130D9D209034690346FEF302CFA2743A2CB9A211CE2908
  163. 2629E20103F0032230C9B269805033920999000000000091029E20103E0088B2
  164. 679E6003D4376040073E54E470D9140970362BB46119204500097036C1216E52
  165. 162C230C12162C23071B0571B0571B0511920E6000A8B46C2A20D00001555944
  166. 5823A31192085000A8B46C2A20F0000B2C45465C4823A3BC040A8B46C2A20B00
  167. 00056545823A3FEF30A8B46C2A20F00000514553554823A33004075140C2A20F
  168. 0000C494E4543508F1130040DA040C2A20F0000C4546554C408F113004088130
  169. C2A20F00003534F4255408F1111920B500030040E1B20FE1000300062000FFFF
  170. FFFFF35240408092FFFFFFFFF30000000000F7FBFBF4E1801048051280104805
  171. 10801048051080F148F4E180104824028010484402801048841280F34805E100
  172. 00000000FFFFFFFFF35240408092FFFFFFFFF300000000000002E10000000612
  173. 0000000E040000000E140000000E34000000000000008CFFFFF720C404040460
  174. E4A44494E0F5A4E4B4F1E4A4F5F4E0C44CF7D460844404942004040404000CFF
  175. FFF700048404240004C404640004ECF7E40004F4F5E50004E4E4E40004C44464
  176. 0004840424000CFFFFF7000000000000000040000000004000000008F3000000
  177. 00F100000000E000000000400000F30403C3700B821433703914049B462C2300
  178. DB4680B05940403F040D9140D00403C370FEF3029E2010360043370300405573
  179. 5D00405273529E20103D00B2130D9D202A17083416C5416566169FF305761629
  180. E20103F002CFA2743A2CB9A211CE29082652616C9B269805051616D004087735
  181. CB916D9D201192060C00FEF306B316E8F60834163223011920F99F06B316E8F6
  182. 085230B2130FEF30586169FF3055735B7040CA1307E316E8F6098E36D9D20119
  183. 20F99F06B316E8F602A1709FF3087735A2170D9D20D00403C37029E20103A004
  184. 3370CB416FED305861626224CB916D9D203004052735B2130B21303004087735
  185. A2170D9D20FEF306B316E8F6023E46CBD30CA1307E316E8F6069816D9D201192
  186. 0F99F06B316E8F60B213023E460ED3011920F99F06B316E8F609FF3087735CB9
  187. 16D9D209FF30557357BF60B213085230FEF30B213066226300408773557B308C
  188. 170B2130D9D203004052735B21307CC30300408773564B308DA164423029E201
  189. 0370030040877358C170B2130D9D2026224A2170D9D2021B469E040E1B205500
  190. 070000820000000000000C94470757324D6105515AD557055732554105215C55
  191. 470727500000000000B821119208151059616170403C370B2040CC4168813011
  192. 920091000ED305961643370170403C3702B1414337017D0056F1485230B21307
  193. 94708605017D003004055735D004055735B2130D9D203F040C64169082653616
  194. 29E20103600E0416339208990000000001710189A23392069900000000000105
  195. F6A200616B2130D9D208813023E467FE30B9F06F6E30F6E305362121B46FEF30
  196. 11920450008DF06F29115362121B4671040976115362121B46FEF30119204500
  197. 071040E9836C84169082655616D91402C23029E20103600120407FE30B9F06C6
  198. 41638D30CB91629E20103400580401192009100FD04011920C21002B1412B141
  199. B2130D9D204E76100D11300405923053621CAF0697611B2130D9D20C74168813
  200. 0C6416D0040877358DA1630040D00402CE30DF040CBD30CB4160ED305D726546
  201. 16940402C23029E20103600119208E3007FE30B4826119208E3007FE30B9F06E
  202. 4D30CB916D9D205304011920CB200F3040119204F1002B1412B141B213011920
  203. B0E002A170E4A20410000001002003004002C230CA1307E316E8F60CAF06A852
  204. 67E316E8F60CBD3071040D2C2629E20103500D9D2023E460ED30B21301192000
  205. 200CD6368C1704423017D0024F50B213047A20D5040F80403A04035040760409
  206. 90409FF303004012040B20403F040B213047A2029E20103B00D9D20FEF306B31
  207. 6E8F6011920FFFFF29E20103C004423011920F99F06B316E8F60B2130D9D20FE
  208. F306B316E8F609FF3029E20103C004423011920F99F06B316E8F60B2130D9D20
  209. FEF306B316E8F602A17011920FFFFF29E20103C008C17011920F99F06B316E8F
  210. 60B2130D9D20FEF306B316E8F602A1709FF3029E20103C008C17011920F99F06
  211. B316E8F60B2130D9D209FF3052735B213029E20103D00D9D20D0040881308773
  212. 539916D9D2055735834161192060C00FEF306B316E8F6085230B213052735834
  213. 161192060C0011920F99F06B316E8F6085230B213029E20103400D9D20300405
  214. 2735B2130D9D20A8B4688130487358DA161673513735B2130B2130D9D20E0416
  215. 9C7A141740CB916D9D2044EF329E2010390029E201038005923079E6091D3062
  216. 4466B650CB916E8F60B2130B2130D9D20FEF306B316E8F6029E20103F00C9416
  217. C9B26CA416E0E3084E36D9D204423013236B21308813059616C9B2632230CA13
  218. 07E316E8F6098E36D9D2012F06CC41657616B2130B9F0611920F99F06B316E8F
  219. 60B2130D9D208813059616CBD30CA1307E316E8F60698160CA30CC4160ED3018
  220. A30B2130D9D2021B46FEF30CA13053621CAF0611920450002BB46F2911CAF06C
  221. A13053621CAF0611920450002BB46E9836C1B467B040E1B20591007200052000
  222. 080051000008005100000E30510000080051010008984201000C8842C70008EB
  223. 420100088CF70300049505810004D40501000A84C701000AA405820009C50782
  224. 0084E585450082B205450089A205290084B68252100FAA83941009AAC6391009
  225. AA45521009AAAAEF0001F76D28000114AA28000F14C7EF00011444101001F74C
  226. FF300908CF0020880828002084001010208FFFFFFF30C429429460A4294294A0
  227. FFFFFFFFF110001100011008020001100802000110080200011008020001FFFF
  228. FFFFF12BB46D0040E1B201300011000700008080E38081C0804122141422C141
  229. 4141C10B8210B82156F1485230592300B82124F50B213047A20D9D2075660CCD
  230. 20A010013610ADD10B147134109164AF0142100E7174143145132164AF215E11
  231. 64818FA580D01561AFAAF1D122A95118C9D5F522A8520A81819F122A82C1201B
  232. B5507146818F29818F29C9136AF2156090A90B456E002F308200E49BF4BF4BF4
  233. AF68AE09AF0AF2AC48108087340E68084396840E611113216414411BDD11A136
  234. 20142164808CB2130CCD206B000AF08F146608FB97601018F146601001431321
  235. 69AF215EBAFAAF122A95118C9AF5BF522A8520A8181D22A82C1201BB55071468
  236. 18F29818F29C9134119BF2BF2241542BF616F16F1610D880BEBF4BF4BF4AF68A
  237. EB8208F34150B213047A2047A20E4A2011000301100300200E4A201100010220
  238. 2201200E4A2011000101301201100E4A2011000102200100101B213047A20E4A
  239. 2011000101300200100E4A2011000202100200201E4A2011000101301201300E
  240. 4A2011000202102101100B213047A20E4A2011000201100300200E4A20110002
  241. 02101200201E4A2011000101301200201E4A2011000202301201200B213047A2
  242. 0E4A2011000101300201200E4A2011000302201301200B213047A20E4A201100
  243. 0301100201200E4A2011000102201101200B213047A20E4A2011000000300100
  244. 200E4A2011000103102101100B213047A20E4A2011000201101100200B2130B2
  245. 130E4A20070000000000000000000000000000C3000000000000000000000000
  246. 00000000000000000000000000000610006045544525943500011000E4A20550
  247. 0052AEFECAEFF0FEF881FF192FF3F2FF5E3FFD04FF775FF3B5FF2C7FF328FF9C
  248. 8FF509FF66BFF44DFFF76F6357"
  249. END_ASC
  250.  
  251. BYTES: #7536h 2901.5
  252.  
  253. BEGIN_UU tetris.uue
  254. begin 644 tetris
  255. M2%!(4#0X+45`*Q!I`1%4151225,Z,2XT+*E$32<Y,1$!`UD!``"P7P$%`-#9A
  256. M`A$I$#``;QRR$@,8,`#0V0(>BA%3.:PP\2Q.7D[0V0*2+A`P`2#I`@$C`)(N0
  257. M$#`#L!(#N$[0V0)'X\0*$^9,<-@$+"KP`0!4151225,@1F%I;&5D6R2Q1A(LP
  258. MD+,2`T?CQ`H3*S'0V0()0Y8P9.\_(/PJ1Z/"FRH1[)*`8I(N$#`/,"(#G"N6,
  259. M"`4S*9"9```````9(.D"`>,`B"MVZ08P37,&!'#C14X'G4&0!V.R2Q:1`E0`8
  260. MD`=C'!+F)6'",L`A8<(R<+%0%PMUL5`1*>`&`(I+QJ("#0`0595$A3(Z$2F`<
  261. M!0"*2\:B`@\`L,)49,6$,CK+0*"X9"PJL```4%94**/S_@.*2\:B`@\``!544
  262. M-56$,CH#0'`5!"PJ\```3$E.15.`'S$`!*U`P*("#P#`5&15Q`3X$0-`@!@#S
  263. M+"KP``!30T]218`?$9$"6P`P``0>*_`>`#``8`(`_____S\E!`0(*?____\_P
  264. M``````!_O[]/'@@!A%`A"`&$4`$(`810`0@?A$\>"`&$0B`(`81$(`@!A$@AZ
  265. M"#^$4!X``````/____\_)00$""G_____/P```````"`>````8"$```#@0```=
  266. M`.!!````X$,`````````R/__?P),0$!`!DY*1$D.7TI.2Q].2E]/#DS$?TT&]
  267. M2$1`20)`0$!``,#__W\`0$A`0@!`3$!&`$#.?TX`0$]?7@!`3DY.`$!,1$8`O
  268. M0$A`0@#`__]_```````````$``````0```"`/P`````?``````X`````!```/
  269. M/T`P/`>P*$$S!Y-!0+EDPC(`O60("Y4$!/-`T!D$#4`P/`?O/R#I`@%C`#1SF
  270. M,``$53?5``0E-R7I`@'3`"LQT-D"HG&`0V%<%%9F8?D_4&=ADBX0,`\@_"I'^
  271. MH\*;*A'LDH!B)1;&N6*)4%!A80U`@'=3O!G6V0(1*6#``.\_8#MACF^`0V$CL
  272. M,A"1`I_Y8#MACF^`)0,K,?#^`X46EO\#53>U!P2L,7`^88YOD.ACG2T0D0*?U
  273. M^6`[88YO(!H'^3^`=U,J<=#9`@U`,#P'DBX0,`I`,P>\%/;>`X46)B9"O!G6A
  274. MV0(#0%!R4RLQL!(#`T"`=U,J<=#9`N\_8#MACF\@XV2\/<`:`^<3YO@&EAC6Y
  275. MV0(1*?"9#[83YO@&*S$@XV3@/1"1`I_Y8#MACF^0_P-X-\6;89TMD/\#53=U<
  276. M^P8K,8`E`^\_L!(#9B(V``1X-U6W`\AQL!(#G2TP``0E-[42`\<\,``$>#=E)
  277. MM`/8&D8D`Y(N$#`',``$>#>%'`<K,=#9`F(BI!('G2T@L63I0."Q`E4`<```8
  278. M*````````,!)='!U(]064!6E7750=2-5%%`2Q55T<'(%``````"+$A$I@%$!]
  279. ME186!P3#<[`"!,P4AA@#$2D`&0#@/5!I831S$`<$PW,@&Q0T<Q#7`&4?A"4#V
  280. M*S%P20=H4!#7``-`4'53#4!0=5,K,=#9`O-`P$9A"2A68V&2+A`P!N!`83,IU
  281. M@)D`````$!<0F"HS*6"9```````04&\J`!:V$@.=+8`8`S).=N\#FP_VY@-O;
  282. M/E!C$A)+]OX#$2E`!0#8#_:2$34F(;%D%T"09Q$U)B&Q9.\_$)$"5`!P`02>5
  283. M.,9(80DH5F5AG4$@+`.2+A`P!A`"!/<^L/E@;!0VV`.\&2;I`@%#`(5`$)$"J
  284. MD`'P#001*<`2`+)!(1L4*S'0V0+D9P'0$0-`4"D#-2;!^F!Y%K$2`YTMP$=AG
  285. MB#'`1F$-0(!W4]@:-@`$#4`@[`/]0,#;`[P4!MX#U2=69&%)0"`L`Y(N$#`&!
  286. M$)$"Z`-P[P-+*!:1`N@#<.\#FP_FU`.\&=;9`C5`$)$"O`+P`P01*4`?`+)!F
  287. M(1L4*S$0D0(+#B`:!TXJ0`$``!```C``!"`L`ZPQ<#YACF_`^F"*)78^88YO(
  288. MP-L#%T#0PF*2+A`P!=#9`C).!MX#*S$0D0(``L!M8\AQ0"0#<0T@]`4K,4"G:
  289. M`EU`\`@$HT`P!01G0)`)!/D_,``$(4"P`@3S0+`2`W0J(.D"`;,`G2WP_@.VL
  290. M$^;X!A$I\/__DBX0,`Q`)`,1*?"9#[83YO@&*S'0V0+O/V`[88YOD/\#DBX0%
  291. M,`Q`)`,1*?"9#[83YO@&*S'0V0+O/V`[88YO(!H'$2GP__^2+A`P#(`<!Q$I?
  292. M\)D/MA/F^`8K,=#9`N\_8#MACF\@&@?Y/R#I`@'#`,AQ$)$"G_E@.V&.;[`2I
  293. M`YTMD/\#)3>U$@.2+A`P#=#9`@U`@!@#>#<UF6&=+5!U4S@4%I$"!@SP_@.VM
  294. M$^;X!E@RL!(#)3>%0V$1*6#``!$I\)D/MA/F^`98,K`2`Y(N$#`$T-D"`T!0)
  295. M<E,K,=#9`HI+AA@#A#>%K6%A-Q5S4RLQL!(#G2W@0&')IT%Q!+P9UMD"1/XCN
  296. MZ0(!DP"2+A`P"%`I`Y=ND-$#)D1F:P6\&>;X!BLQL!(#G2WP_@.V$^;X!I(NJ
  297. M$#`/P$EAG"O&2F$./H#D8YTM0"0#,3*V$@.(,5!I89PK-B(#K#%P/F&.;Y#H"
  298. M8YTM$/)@S!169V$K,;#Y8!$I\)D/MA/F^`8K,=#9`H@Q4&EAO#W`&@/G$^;XD
  299. M!I88!JP#S!0&W@.!.K`2`YTM(+%D[S_`&@,U)L'Z8!$I0`4`LDOVDA&L#\8::
  300. M`S4FP?I@$2E`!0"R2^:)8QQ+=@L$'BM0&0`G`%`"`(``%0``@``5``#@`Q4`.
  301. M`(``%1``@(DD$`#`B"1\`("^)!``@,A_,`!`65`8`$!-4!``H$A\$`"@2E`HI
  302. M`)!<<"@`2%Y85``H*U!4`)@J4)(`2&LH)0'PJCA)`9"J;),!D*I4)0&0JJK^5
  303. M`!!_UH(`$$&J@@#P07S^`!!!1`$!$'_$_P.0@/P``HB`@@`"2``!`0+X____J
  304. M`TR2)$D&2I(D20K_____'P$`$0`0`8`@`!`!@"``$`&`(``0`8`@`!#_____R
  305. M'[)+U@`$'BL0`P`1`'````@(/@@8#`@4(D%!(AP4%!0<L"@!BQ)E'X0E`Y4RV
  306. M`(L20E^P$@-T*M#9`E=FP-P""@$08P':';!!%T,!&4;Z$"0!X!='01-4,1)&2
  307. M^A+E$488^%H(#5$6^JH?'2*:%8&<75\BBB6@&!CY(:(H'`*Q6P479!CXDACXH
  308. MDIPQIB]1!@F:L%3F`/(#*`!.N4_[M$_ZANJ0^J`ORH0!"'A#X(:`-&E(X!81?
  309. M,1)&012QW1$:8P)!$D8(R"LQP-P"M@"@#_A!9H"_>08!@1]D!@$0-#$2EOH2G
  310. MY:NO^B&B61'(J5_[):)8`HJ!T2**PB$0NU5P08:!+XF!+\D90Q&Y+_LB%$6R`
  311. M;V$?]F$!C0CK^[1/^Z1OJ+XH@#\4!2LQ0*<"="K@I`(1`#`0`3```N"D`A$`I
  312. M$"`"(A`"X*0"$0`0$`,A$`'@I`(1`!`@`A```;$2`W0JX*0"$0`0$`,@``'@\
  313. MI`(1`"`@`2```N&D`A$`$!`#(1`#X*0"$0`@(`$2$`&P$@-T*N"D`A$`(!`!I
  314. M,``"X*0"$0`@(`$A``+AI`(1`!`0`R$``N&D`A$`("`#(1`"L!(#="K@I`(1!
  315. M`!`0`R`0`N"D`A$`,"`",1`"L!(#="K@I`(1`#`0`2`0`N"D`A$`$"`"$1`"L
  316. ML!(#="K@I`(1`````Q```N"D`A$`$#`!$A`!L!(#="K@I`(1`"`0`1$``K`2$
  317. M`RLQX*0"<```````````````````/```````````````````````````````.
  318. M````8`$`!E1%5%))4P`0`0!.*E`%`"7J[ZS^#^^/&/^1\C\O_^7SWT#_=_4_S
  319. 36__"]S^"_\GX7Y#_9OM/U/]_]O]_>
  320. ``
  321. end
  322. END_UU
  323.  
  324. -- 
  325. +-----------------------------------+---------------------------------------+
  326. |       `You mean this isn't        |             Detlef Mueller            |
  327. |          the afterlife ?`         |          detlef@mwhh.hanse.de         |
  328. | Arthur in THGTTG, part II, p. 78  |...!uunet!mcsun!unido!mcshh!mwhh!detlef|
  329. +-----------------------------------+---------------------------------------+
  330.  
  331.